home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / applications / maxonhothelp3demo.lha / HotHelp-3-DEMO / HotHelp 3 < prev    next >
Text File  |  1995-04-23  |  38KB  |  946 lines
  1.  
  2. ;====================================================================
  3. ; Einige Initialisierungen
  4. ;====================================================================
  5.  
  6. (complete 0)
  7.  
  8. ; Die Versionsnummer und das Erstellungs-Datum der hier installierten
  9. ; HotHelp-Version.
  10.  
  11. (set hh-version "3")
  12. (set hh-version-intern "3.00")
  13. (set hh-date "(14 Feb 94)")
  14.  
  15. ; HotHelp wird über eine ganze Reihe von Verzeichnissen verteilt, so daß sich
  16. ; kein einzelnes Default-Dir angeben läßt.
  17.  
  18. (set @default-dest "")
  19.  
  20. (set os-version (/ (getversion) 65536))
  21. (set os-13 (< os-version 36))
  22. (set os-20 (>= os-version 36))
  23. (set os-21 (>= os-version 38))
  24.  
  25. ; Die Pfadnamen der einzelnen Quell-Dateien.
  26.  
  27. (set source-lha                        "Tools/LhA")
  28. (set source-hotkeyhelp                "C/HotKeyHelp")
  29. (set source-toolicons (if os-20    "Icons/T2.0/"
  30.                                             "Icons/T1.3/"))
  31. (set source-toolicon-hkh            (cat source-toolicons "HKH.info"))
  32. (set source-toolicon-hhpref        (cat source-toolicons "HHPref.info"))
  33. (set source-toolicon-hhpro            (cat source-toolicons "HHPro.info"))
  34. (set source-toolicon-easyhh        (cat source-toolicons "HHEasy.info"))
  35. (set source-toolicon-hhmarker        (cat source-toolicons "HHMark.info"))
  36. (set source-toolicon-hhcomp        (cat source-toolicons "HHC.info"))
  37. (set source-toolicon-hhmanager    (cat source-toolicons "HHMan.info"))
  38. (set source-toolicon-hh                (cat source-toolicons "HH.info"))
  39. (set source-icons (if os-20        "Icons/Icons2.0"
  40.                                             "Icons/Icons1.3"))
  41.  
  42. (set source-txt-hothelp                "Text/HotHelp.txt")
  43. (set source-txt-glossar                "Text/Glossar.txt")
  44. (set source-txt-iff                    "Text/IFF.txt")
  45.  
  46. (set source-txt-ansic                "Text/ANSI-C.txt")
  47. (set source-txt-hothelptools        "Text/HotHelpTools.txt")
  48. (set source-txt-libsdevs            "Text/Libs & Devs 1.3.txt")
  49. (set source-txt-arexx                "Text/ARexx.txt")
  50. (set source-txt-shell                "Text/Shell.txt")
  51.  
  52. (set archive-hothelplib                "Archive/HotHelpLib.lha")
  53. (set archive-fasthothelplib        "Archive/FastHotHelpLib.lha")
  54. (set archive-hothelphandler        "Archive/Handler.lha")
  55. (set archive-catalogs                "Archive/Catalogs.lha")
  56. (set archive-tools                    "Archive/Tools.lha")
  57. (set archive-header                    "Archive/Header.lha")
  58.  
  59. ; Die Größen der Text-Dateien.
  60.  
  61. (set size-txt-hothelp                125000)
  62. (set size-txt-ansic                    30000)
  63. (set size-txt-glossar                70000)
  64. (set size-txt-iff                        15000)
  65. (set size-txt-hothelptools            360000)
  66. (set size-txt-libsdevs                320000)
  67. (set size-txt-arexx                    35000)
  68. (set size-txt-shell                    45000)
  69.  
  70. ; Die Pfadnamen der Programme, die vom Installations-Skript aufgerufen werden.
  71.  
  72. (set run-lhapatterns        "Tools/LhaPatterns")
  73. (set run-flushprojects    "Tools/FlushProjects")
  74. (set run-deleteproject    "Tools/DeleteProject")
  75. (set run-lha                "RAM:LhA -a")
  76. (set run-clearstartup    "Tools/ClearStartup")
  77. (set run-setprojectpath    "Tools/SetProjectPath")
  78.  
  79. ; Der Name des HotHelp-Verzeichnis darf nicht länger als dieser Wert sein.
  80.  
  81. (set max-project-dir 200)
  82.  
  83. ; Default-Sprache für die verschiedenen Installations-Tools ist Deutsch.
  84.  
  85. (set tools-language 0)
  86.  
  87. ;=====================================================================================
  88. ; installtext
  89. ;
  90. ; Die Prozedur erwartet Parameter in den folgenden Variablen:
  91. ;    §it-name   -    Name des Projektes, dessen Text-Datei kopiert wird
  92. ;    §it-size   -    Größe der Text-Datei
  93. ;    §it-source -    Pfadname der zu kopierenden Textdatei
  94. ;    §it-dest   -    Pfadname des Zielverzeichnisses
  95. ; Die folgenden Variablen werden von der Prozedur gesetzt:
  96. ;    §it-dest   -    Name des Verzeichnisses, in dem die Datei tatsächlich installiert
  97. ;                        wurde. Kann sich vom Eingabewert unterscheiden, wenn aufgrund
  98. ;                        mangelnden Disk-Speichers ein anderer Datenträger gewählt wurde.
  99. ;=====================================================================================
  100. (procedure installtext
  101.     (
  102.     (if (and (> @user-level 0) (<= (getdiskspace §it-dest) §it-size))
  103.         (
  104.         (until (> (getdiskspace §it-dest) §it-size)
  105.             (
  106.             (message (cat    "Auf dem gewählten Datenträger \"" §it-dest "\" ist nicht "
  107.                                 "mehr genügend freier Speicherplatz vorhanden, um die Texte "
  108.                                 "des " §it-name "-Projektes zu installieren (es sind nur noch "
  109.                                  (/ (getdiskspace §it-dest) 1024) " KByte frei, während die "
  110.                                 "Text-Datei " (/ §it-size 1024) " KByte benötigt).\n"
  111.                                 "Dieser Fehler tritt üblicherweise bei Installation auf "
  112.                                 "Disketten auf (falls Sie HotHelp auf eine Festplatte "
  113.                                 "installieren und die Meldung sehen, sollten Sie die "
  114.                                 "Installation abbrechen und erst ein wenig Platz auf Ihrer "
  115.                                 "Platte schaffen).\n\n"
  116.                                 "Sie müssen daher nun eine andere Disk angeben, auf die die "
  117.                                 "Text-Datei kopiert werden soll.\n"))
  118.             (set §it-dest
  119.                 (askdir
  120.                     (prompt "Auswahl der Disk für die Text-Datei des " §it-name "-Projektes (Dateigröße: " (/ §it-size 1024) " KByte)")
  121.                     (help (cat    "    Bei Installation auf Disketten müssen die Text-Dateien "
  122.                                     "auf mehrere Disks verteilt werden, da sie sehr viel Platz "
  123.                                     "benötigen. Sie müssen daher nun eine andere Disk auswählen, "
  124.                                     "auf die die Text-Dateien kopiert werden sollen. Sie können "
  125.                                     "auf der Disk auch Unterverzeichnisse anlegen.\n"
  126.                                     "    Bitte beachten Sie jedoch, daß alle Disketten "
  127.                                     "eindeutig Namen tragen müssen (z.B. \"HotHelp1\", "
  128.                                     "\"HotHelp2\", etc.). Keinesfalls dürfen zwei Disketten "
  129.                                     "denselben Namen tragen!"
  130.                                     "\n\n"
  131.                                     @askdir-help))
  132.                 (default §it-dest)
  133.                 (newpath)
  134.                 )
  135.             )
  136.             (if (= (exists §it-dest) 0)
  137.                 (makedir §it-dest (infos) (safe))
  138.             (set §it-dest (expandpath §it-dest))
  139.             )
  140.  
  141.             ; Der Name darf nicht zu lang sein, sonst können wir ihn hinterher nicht in
  142.             ; die Header-Dateien der Projekte eintragen.
  143.             (if (>= (strlen §it-dest) max-project-dir)
  144.                 (abort (cat    "\nDer eingegebene Name \n\"" §it-dest "\"\nist zu lang!\n\n"
  145.                                 "Bitte geben Sie maximal " (- max-project-dir 1) " Zeichen ein!"))
  146.             )
  147.             )
  148.         )
  149.         )
  150.     )
  151.     (copyfiles
  152.         (prompt    (cat "Kopiere Projekt-Texte " §it-name))
  153.         (source    §it-source)
  154.         (dest        §it-dest)
  155.     )
  156.     )
  157. )
  158.  
  159. ;=====================================================================================
  160. ; Beginn der Installation
  161. ;=====================================================================================
  162.  
  163. ; Eine kleine Einleitungs-Message, gefolgt vom Startbildschirm des Installers.
  164.  
  165. (set act-user-level @user-level)
  166. (user 1)
  167. (message (cat    "Willkommen zum Installationsprogramm der Demoversion von \"HotHelp "
  168.                      hh-version "\"!\n\n"
  169.                     "Dieses Skript kopiert die verschiedenen Dateien, "
  170.                     "aus denen sich das HotHelp-System zusammensetzt, "
  171.                     "auf Ihre Festplatte.\n\n"
  172.                     "Falls Sie über keine Platte verfügen, werden statt dessen bis zu "
  173.                     "drei Leerdisketten benötigt (Hinweise zum Formatieren von Disketten "
  174.                     "entnehmen Sie bitte Ihrem Amiga-Benutzerhandbuch).\n"
  175.                     "Bitte beachten Sie, daß alle verwendeten Leerdisks unterschiedliche "
  176.                     "Namen haben müssen und daß keine den Namen \"HotHelp\" tragen "
  177.                     "darf!"))
  178. (user act-user-level)
  179. (welcome)
  180.  
  181. (set partition "WORK:")
  182. (if (= @user-level 0)
  183.     (
  184.     (user 1)
  185.     (message (cat    "Im Einsteiger-Modus wird davon ausgegangen, daß HotHelp auf "
  186.                         "einer Festplatte installiert wird, auf der noch mindestens "
  187.                         "ca. 4 MByte freier Speicherplatz verfügbar sind. Sie müssen dazu im "
  188.                         "nächsten Fenster den Namen der gewünschten Festplatten-Partition "
  189.                         "angeben.\n\n"
  190.                         "Alle weiteren Angaben werden dann vom Installations-Skript "
  191.                         "möglichst genau an Ihr System angepaßt - insbesondere wird auch "
  192.                         "erkannt, wenn Sie schon eine alte HotHelp-Version installiert "
  193.                         "haben; diese wird dann komplett durch die neue Version ersetzt."))
  194.  
  195.     (set ok 0)
  196.     (while (not ok)
  197.         (set partition
  198.             (askdir
  199.                 (prompt "Auswahl des Laufwerks für die HotHelp-Installation")
  200.                 (help (cat    "    Sie können über das Symbol 'Laufwerke anz.' (bzw. 'Show drives') "
  201.                                 "eine Übersicht über alle Laufwerke Ihres Amiga anfordern; aus "
  202.                                 "dieser Übersicht sollten Sie nur die oberen, nicht farblich "
  203.                                 "gekennzeichneten Einträge auswählen.\n"
  204.                                 "    Typische sinnvolle Namen sind z.B. \"WORK:\", \"HD0:\" oder \"DH0:\"; "
  205.                                 "nicht verwenden sollten Sie Namen wie \"DF0:\", \"DF1:\", "
  206.                                 "\"DF2:\", \"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", "
  207.                                 "\"WB_2.x:\", \"System3.0:\" oder \"WB_3.x:\"!"
  208.                                 "\n\n"
  209.                                 @askdir-help))
  210.                 (default partition)
  211.                 (disk)
  212.             )
  213.         )
  214.  
  215.         ; Ist der Dateiname leer oder endet nicht mit einem ':' oder existiert unter
  216.         ; diesem Namen kein Verzeichnis, wird eine Fehlermeldung angezeigt; andernfalls
  217.         ; kann die Auswahl-Schleife beendet werden.
  218.         (if (or (or (<= (strlen partition) 0) (<> (substr partition (- (strlen partition) 1) 1) ":")) (<> (exists partition (noreq)) 2))
  219.             (message (cat    "\nBei Ihrer Auswahl \"" partition "\" handelt es sich nicht um "
  220.                                 "eine gültige Laufwerks-Angabe!\n\n"
  221.                                 "Sie können über das Symbol 'Laufwerke anz.' (bzw. 'Show drives') "
  222.                                 "eine Übersicht über alle Laufwerke Ihres Amiga anfordern; aus "
  223.                                 "dieser Übersicht sollten Sie nur die oberen, nicht farblich "
  224.                                 "gekennzeichneten Einträge auswählen.\n"
  225.                                 "Typische sinnvolle Namen sind z.B. \"WORK:\", \"HD0:\" oder \"DH0:\"; "
  226.                                 "nicht verwenden sollten Sie Namen wie \"DF0:\", \"DF1:\", "
  227.                                 "\"DF2:\", \"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", "
  228.                                 "\"WB_2.x:\", \"System3.0:\" oder \"WB_3.x:\"!"))
  229.             ;else
  230.             (set ok 1)
  231.         )
  232.     )
  233.     (user 0)
  234.     )
  235. )
  236.  
  237. ; Dieser kleine Trick ist notwendig, damit LHA unter 1.3 und 2.0 keinen Mist
  238. ; baut...
  239.  
  240. (run run-lhapatterns)
  241.  
  242. ; Falls HotHelp schon installiert ist, wird dies hier ermittelt. 'old-hh-version'
  243. ; kann anschließend die folgenden drei Werte beinhalten: -1 (noch nicht
  244. ; installiert), 0 (Version 2 war installiert) oder 1 (Version 3)
  245.  
  246. (set old-hh-version -1)
  247. (if (<> (getassign "HOTHELP") "")
  248.     (
  249.     ; Nun werden sicherheitshalber alle evtl. schon geladenen Projekte wieder aus
  250.     ; dem Speicher entfernt (diese geLock()ten Dateien lassen sich ja so
  251.     ; wahnsinnig schlecht überschreiben...).
  252.  
  253.     (working "\nEntferne evtl. geladene Projekte aus dem Speicher...")
  254.     (run (cat run-flushprojects " " tools-language))
  255.  
  256.     ; Wenn eine dieser typischen 3er-Dateien existiert, gehen wir davon aus, daß
  257.     ; Version 3 installiert ist.
  258.  
  259.     (set old-hh-version
  260.         (if (or (exists "L:HotHelpHandler")
  261.                   (exists "HOTHELP:HotHelpLib.English"))
  262.             1
  263.         ;else
  264.             0)
  265.     )
  266.  
  267.     ; Nun kann noch die Hilfsdatei des alten Managers entfernt werden.
  268.  
  269.     (if (exists ("HOTHELP:HotHelpManager.Hlp"))
  270.         (delete "HOTHELP:HotHelpManager.Hlp"
  271.             (prompt (cat    "\nLösche HOTHELP:HotHelpManager.Hlp"
  272.                                 "\n\n"
  273.                                 "Diese Datei enthält die Hilfstexte für den "
  274.                                 "alten HotHelpManager. Da dieses Programm nicht "
  275.                                 "mehr benötigt wird, kann auch diese Datei entfernt "
  276.                                 "werden."))
  277.             (help "")
  278.             (confirm)
  279.         )
  280.     )
  281.     )
  282. )
  283.  
  284. (set libs-chosen
  285.     (askoptions
  286.         (prompt "Auswahl der Funktions-Bibliotheken")
  287.         (help (cat    "    Als erstes müssen Sie festlegen, welche Funktions-Bibliotheken auf "
  288.                         "Ihrem System installiert werden sollen. Im Normalfall können Sie die "
  289.                         "vorgegebene Einstellung übernehmen und die Installation direkt "
  290.                         "fortsetzen.\n"
  291.                         "    Hier noch einige Hintergrund-Informationen über die einzelnen "
  292.                         "Bibliotheken:\n"
  293.                         "    HotHelp.Library - Diese Library stellt das Kernstück von "
  294.                         "HotHelp dar. Es handelt sich um eine Funktions-Bibliothek, in "
  295.                         "der alle Routinen zusammengefaßt sind, die zum Verwalten und "
  296.                         "Anzeigen der Hilfstexte benötigt werden - mit anderen Worten: "
  297.                         "ohne diese Bibliothek geht überhaupt nichts!\n\n"
  298.                         "   RCT.Library - Unter OS 1.3 wird diese Bibliothek verwendet, "
  299.                         "um einen FileRequester anzubieten. Sie können allerdings auf das "
  300.                         "Kopieren verzichten, wenn Sie schon über die ReqTools- oder "
  301.                         "die Arp-Library verfügen - HotHelp greift dann auf deren "
  302.                         "File-Requester zurück."
  303.                         "\n\n"
  304.                         @askoptions-help))
  305.         (choices
  306.             "HotHelp.Library"
  307.             "RCT.Library"
  308.         )
  309.         (default (if os-20 1 3) )
  310.     )
  311. )
  312.  
  313. ; LhA wird in die RAM-Disk kopiert, damit das Programm nicht jedesmal von Disk
  314. ; geladen werden muß.
  315. (copyfiles
  316.     (source source-lha)
  317.     (dest "RAM:")
  318.     (nogauge)
  319. )
  320.  
  321. ; Nun werden die gewünschten Libraries der Reihe nach aus ihren Archiven
  322. ; entnommen.
  323. (if (<> libs-chosen 0)
  324.     (
  325.     (if (in libs-chosen 0)
  326.         (run (cat run-lha " x " archive-hothelplib " LIBS: HotHelp.Library"))
  327.     )
  328.     (complete 5)
  329.     (if (in libs-chosen 1)
  330.         (run (cat run-lha " x " archive-hothelplib " LIBS: RCT.Library"))
  331.     )
  332.     (complete 10)
  333.     )
  334. )
  335. (complete 10)
  336.  
  337. ; Nun kommen die Handler an die Reihe:
  338.  
  339. (run
  340.     (prompt    (cat    "\nKopieren der HotHelp-Handler\n\n"
  341.                         "Bei den Handlern handelt es sich um Programm-Teile, "
  342.                         "die von der Library bzw. HotKeyHelp nachgeladen werden, "
  343.                         "um eigene Prozesse daraus zu erzeugen.\n"
  344.                         "Der HotHelpHandler wird benötigt, um asynchrone "
  345.                         "HotHelp-Fenster zu erzeugen, der HotKeyHelpHandler "
  346.                         "wird von HotKeyHelp als eigener Prozeß installiert, "
  347.                         "der für die Überwachung des Input-Streams, das "
  348.                         "ARexx-Interface und die Onlineprojekte zuständig ist."))
  349.     (help        (cat    "    Bei Zustimmung werden die beiden Handler in das "
  350.                         "L:-Verzeichnis entpackt, wo sie von HotHelp erwartet werden."))
  351.     (cat run-lha " x " archive-hothelphandler " L:")
  352.     (confirm)
  353. )
  354. (complete 15)
  355.  
  356. ; And now for something completely different: It's Monty Pythons Flying HotKeyHelp!
  357.  
  358. (set hotkeyhelp-dir
  359.     (askdir
  360.         (prompt "Auswahl des HotKeyHelp-Verzeichnisses")
  361.         (help (cat    "    Das Programm HotKeyHelp ist ebenfalls sehr wichtig für "
  362.                         "das HotHelp-System. Es installiert einen Input-Handler, der "
  363.                         "alle Tastatur-Eingaben überwacht. Wird einer der vorgegebenen "
  364.                         "Hotkeys entdeckt, öffnet der Handler über die HotHelp-Library "
  365.                         "ein HotHelp-Fenster mit einem Hilfstext - je nachdem, welcher "
  366.                         "Hotkey eingegeben wurde.\n"
  367.                         "    Ohne dieses Programm können demnach keine HotHelp-Fenster "
  368.                         "über die Hotkeys geöffnet werden. Auch die neuen Online-Projekte "
  369.                         "und das ARexx-Interface sind nur verwendbar, wenn HotKeyHelp "
  370.                         "installiert wurde.\n"
  371.                         "    Sie müssen nun hier festlegen, in welches Verzeichnis "
  372.                         "das Programm kopiert werden soll."
  373.                         "\n\n"
  374.                         @askdir-help))
  375.     (default "C:")
  376.     (newpath)
  377.     )
  378. )
  379. (if (= (exists hotkeyhelp-dir) 0)
  380.     (makedir hotkeyhelp-dir (infos) (safe))
  381. (set hotkeyhelp-dir (expandpath hotkeyhelp-dir))
  382. )
  383. (copyfiles
  384.     (source source-hotkeyhelp)
  385.     (dest hotkeyhelp-dir)
  386. )
  387. (copyfiles
  388.     (source source-toolicon-hkh)
  389.     (dest hotkeyhelp-dir)
  390.     (newname "HotKeyHelp.info")
  391. )
  392. (complete 20)
  393.  
  394. ; Nun wird das Verzeichnis ausgewählt, in dem alle HotHelp-Dateien untergebracht
  395. ; werden sollen. Diesem Verzeichnis wird später das HOTHELP:-Device zugeordnet.
  396.  
  397. (message (cat    "\nBitte bestimmen Sie jetzt das Verzeichnis, in dem die für HotHelp "
  398.                     "wichtigen Daten abgelegt werden sollen. Dabei handelt es sich z.B. "
  399.                     "um eine Datei mit den aktuellen Einstellungen des Systems, diverse "
  400.                     "Icon-Dateien und (last but not least) die Projekt-Dateien mit "
  401.                     "den Hilfstexten selber.\n"))
  402.  
  403. ; Falls HOTHELP: schon assigned ist (HotHelp also schon mal installiert wurde),
  404. ; weisen wir hier den entsprechenden Pfad an 'hothelp-dir' zu - andernfalls wird
  405. ; als Default "WORK:HotHelp" angenommen.
  406.  
  407. (set hothelp-dir (getassign "HOTHELP"))
  408. (if (= hothelp-dir "")
  409.     (set hothelp-dir (cat partition "HotHelp"))
  410. )
  411.  
  412. (set hothelp-dir
  413.     (askdir
  414.         (prompt "Auswahl des HotHelp-Verzeichnisses")
  415.         (help (cat    "    Sie müssen nun festlegen, in welchem Verzeichnis die "
  416.                         "Daten von HotHelp abgelegt werden sollen. Falls Sie HotHelp "
  417.                         "schon vorher einmal installiert haben, wird hier das damals "
  418.                         "ausgewählte Verzeichnis vorgegeben - andernfalls lautet die "
  419.                         "Vorgabe \"" partition "HotHelp\".\n"
  420.                         "    Festplatten-Besitzer können das so voreingestellte "
  421.                         "Verzeichnis 'HotHelp' auf der " partition "-Partition "
  422.                         "verwenden.\n"
  423.                         "    Bei Installation auf Disketten sollten Sie eine eigene "
  424.                         "Disk für die Dateien verwenden, auf der Sie dann ein "
  425.                         "entsprechendes Unterverzeichnis anlegen. Liegt die "
  426.                         "Ziel-Diskette z.B. in Laufwerk 1, sollten Sie "
  427.                         "\"DF1:HotHelp\" in das Feld 'Ausgewählte Schublade' "
  428.                         "eingeben, um ein Verzeichnis dieses Namens auf der Disk "
  429.                         "anlegen zu lassen. Verwenden Sie eine der vorbereiteten "
  430.                         "Leerdisketten."
  431.                         "\n\n"
  432.                         @askdir-help))
  433.     (default hothelp-dir)
  434.     (newpath)
  435.     )
  436. )
  437. (if (= (exists hothelp-dir) 0)
  438.     (makedir hothelp-dir (infos) (safe))
  439. (set hothelp-dir (expandpath hothelp-dir))
  440. )
  441.  
  442. (if (>= (strlen hothelp-dir) max-project-dir)
  443.     (abort (cat    "\nDer eingegebene Name \n\"" hothelp-dir "\"\nist zu lang!\n\n"
  444.                     "Bitte geben Sie maximal " (- max-project-dir 1) " Zeichen ein!"))
  445. )
  446.  
  447. ; Jetzt folgen die Sprach-Dateien.
  448.  
  449. (if (or (<> (getassign "LOCALE") "") os-21)
  450.     (run
  451.         (prompt    (cat    "\nKopieren der Sprachen-Kataloge\n\n"
  452.                             "Die Kataloge enthalten die deutschen Texte, die innerhalb der "
  453.                             "HotHelp-Library und der HotHelp-Tools verwendet werden.\n"
  454.                             "(Es handelt sich dabei nicht um Hilfstexte, sondern um ganz "
  455.                             "normale Texte wie z.B. Beschriftungen von Symbolen, Meldungen an "
  456.                             "den Benutzer etc.)"))
  457.         (help        (cat    "    HotHelp unterstützt in der neuen Version " hh-version " die "
  458.                             "Locale-Library. Das bedeutet, daß die Sprache der Benutzerführung "
  459.                             "eines Programms über den System-Editor 'Locale' "
  460.                             "bestimmt werden kann.\n"
  461.                             "    Diese beiden Kataloge werden benötigt, wenn Sie HotHelp "
  462.                             "mit einer deutschsprachigen Oberfläche verwenden wollen. Die "
  463.                             "beiden Dateien werden im Verzeichnis LOCALE:Catalogs/Deutsch "
  464.                             "abgelegt."))
  465.         (cat run-lha " x " archive-catalogs " LOCALE:Catalogs/Deutsch/ #?.catalog")
  466.         (confirm)
  467.     )
  468. )
  469. (complete 25)
  470.  
  471. ; Dieses Monster hängt an den Verzeichnisnamen einen '/' an, falls er nicht
  472. ; leer ist und nicht bereits mit ':' oder '/' endet (ansonsten bekommt LHA
  473. ; Probleme).
  474. (set dst-dir hothelp-dir)
  475. (if (and (> (strlen dst-dir) 0) (and (<> (substr dst-dir (- (strlen dst-dir) 1) 1) ":") (<> (substr dst-dir (- (strlen dst-dir) 1) 1) "/"))) (set dst-dir (cat dst-dir "/")))
  476. (run
  477.     (prompt    (cat    "\nKopieren von HotHelps Sprachen-Dateien\n\n"
  478.                         "Diese Dateien enthalten zum einen die englischen Vorgabe-Texte "
  479.                         "der Library und der Tools sowie deren deutsche Übersetzungen. "
  480.                         "Falls Sie immer mit mindestens OS 2.1 arbeiten und eben die "
  481.                         "System-Kataloge installiert haben, können Sie später die beiden "
  482.                         "Dateien 'HOTHELP:HotHelpLib.Deutsch' und 'HOTHELP:HotHelpTools.Deutsch' "
  483.                         "wieder löschen."))
  484.     (help        (cat    "    Diese Dateien enthalten sämtliche Programm-Texte von HotHelp. "
  485.                         "Je nach der eingestellten Sprache werden die deutschen oder die "
  486.                         "englischen Texte verwendet, so daß die gesamte Benutzerführung "
  487.                         "in der gewählten System-Sprache erfolgt (vor OS 2.1 kann die "
  488.                         "aktuelle Sprache im Programm 'HotHelpPref' eingestellt werden).\n"
  489.                         "    Die Dateien werden im vorhin gewählten Verzeichnis für die "
  490.                         "HotHelp-Daten \"" hothelp-dir "\" abgelegt."))
  491.     (cat run-lha " x " archive-catalogs " \"" dst-dir "\" #?.Deutsch #?.English")
  492.     (confirm)
  493. )
  494. (complete 30)
  495.  
  496. ; Nun die HotHelpTools
  497. ; 'tools-chosen' enthält danach eine Bitmaske, aus der hervorgeht, welche Tools
  498. ; installiert werden sollen.
  499.  
  500. (set tools-chosen
  501.     (askoptions
  502.         (prompt "Auswahl der HotHelpTools")
  503.         (help (cat    "    In diesem Fenster können Sie auswählen, welche der "
  504.                         "HotHelp-Tools (HotHelp-Werkzeuge) Sie installieren möchten. "
  505.                         "Im folgenden erhalten Sie eine kurze Übersicht über die "
  506.                         "Bedeutung der einzelnen Programme:\n\n"
  507.                         "    HotHelpPref - Über dieses Tool kann eine Reihe wichtiger "
  508.                         "Voreinstellungen getroffen werden, die das gesamte HotHelp-System "
  509.                         "betreffen. Dazu gehören z.B. die Größe und Position von "
  510.                         "HotHelp-Fenstern, ihre Farben und der verwendete Zeichensatz, die "
  511.                         "Hotkeys, die zum Öffnen eines HotHelp-Fensters auf Tastendruck "
  512.                         "verwendet werden etc.\n\n"
  513.                         "    HotAmigaGuide - Mit diesem Programm können Sie "
  514.                         "AmigaGuide-Dateien als HotHelp-Projekte anmelden. Anschließend "
  515.                         "können Sie die AmigaGuide-Texte dann wie ganz normale "
  516.                         "Projektdateien in jedem HotHelp-Fenster betrachten."
  517.                         "\n\n"
  518.                         @askoptions-help))
  519.         (choices        "HotHelpPref"
  520.                         "HotAmigaGuide")
  521.         (default -1)
  522.     )
  523. )
  524.  
  525. ; Wenn keines der Tools installiert werden soll, brauchen wir auch nicht nach dem
  526. ; Verzeichnis zu fragen... In diesem Fall wird 'tools-dir' auf den Dummy-String
  527. ; "KeineToolsInstalliert" gesetzt...
  528.  
  529. (set tools-dir "Keine_Tools_Installiert")
  530. (if (<> tools-chosen 0)
  531.     (
  532.     (set tools-dir
  533.         (askdir
  534.             (prompt "Auswahl des Tool-Verzeichnis")
  535.             (help (cat    "    Sie müssen nun festlegen, in welchem Verzeichnis die "
  536.                             "HotHelp-Tools abgelegt werden sollen.\n"
  537.                             "    Festplatten-Besitzer können das voreingestellte "
  538.                             "Verzeichnis 'HotHelpTools' auf der " partition "-Partition "
  539.                             "verwenden.\n"
  540.                             "    Bei Installation auf Disketten sollten Sie eine eigene "
  541.                             "Disk für die Tools benutzen, auf der Sie dann ein "
  542.                             "entsprechendes Unterverzeichnis anlegen. Liegt die "
  543.                             "Ziel-Diskette z.B. in Laufwerk 1, sollten Sie "
  544.                             "\"DF1:HotHelpTools\" in das Feld 'Ausgewählte Schublade' "
  545.                             "eingeben, um ein Verzeichnis dieses Namens auf der Disk "
  546.                             "anlegen zu lassen, in den die Tools dann kopiert werden."
  547.                             "\n\n"
  548.                             @askdir-help))
  549.             (default (cat partition "HotHelpTools"))
  550.             (newpath)
  551.         )
  552.     )
  553.     (if (= (exists tools-dir) 0)
  554.         (makedir tools-dir (infos) (safe))
  555.     (set tools-dir (expandpath tools-dir))
  556.     )
  557.  
  558.     ; 'tools' enthält anschließend einen String mit den Namen aller gewünschten
  559.     ; Tools, der dann an LHA übergeben werden kann. Außerdem werden hier bereits
  560.     ; die Icons erzeugt.
  561.  
  562.     (set tools "")
  563.     (if (in tools-chosen 0) ( (set tools (cat tools " HotHelpPref"))   (copyfiles (source source-toolicon-hhpref) (dest tools-dir) (newname "HotHelpPref.info")  )))
  564.     (if (in tools-chosen 1) ( (set tools (cat tools " HotAmigaGuide")) (copyfiles (source source-toolicon-hhpro)  (dest tools-dir) (newname "HotAmigaGuide.info"))))
  565.  
  566.     (working "\nDie Tools werden entpackt...")
  567.     (set dst-dir tools-dir)
  568.     (if (and (> (strlen dst-dir) 0) (and (<> (substr dst-dir (- (strlen dst-dir) 1) 1) ":") (<> (substr dst-dir (- (strlen dst-dir) 1) 1) "/"))) (set dst-dir (cat dst-dir "/")))
  569.     (run (cat run-lha " x " archive-tools " \"" dst-dir "\" " tools))
  570.     )
  571. )
  572. (complete 35)
  573.  
  574. ; Nun werden die diversen Icons in das HotHelp-Verzeichnis kopiert.
  575.  
  576. (working "\nDie Standard-Icons werden kopiert...")
  577. (copyfiles
  578.     (source source-icons)
  579.     (dest (tackon hothelp-dir "Icons"))
  580.     (all)
  581. )
  582. (complete 40)
  583.  
  584. ; Und jetzt kommen die Projekt-Dateien!
  585.  
  586. (message (cat    "\nNun müssen noch die im Lieferumfang enthaltenen Dateien mit "
  587.                     "Hilfstexten (die sogenannten Projekte) installiert werden. "
  588.                     "Es handelt sich dabei um Auszüge aus den Projekten der HotHelp 3-"
  589.                     "Vollversion.\n"
  590.                     "Im folgenden Fenster können Sie dazu festlegen, welche der "
  591.                     "Projekte Sie installieren möchten und welche nicht.\n"
  592.                     "Eine Erläuterung zu den einzelnen Projekten erhalten Sie über das "
  593.                     "'Hilfe...'-Symbol im nächsten Fenster.\n\n"))
  594.  
  595. (set projects-chosen
  596.     (askoptions
  597.         (prompt "Auswahl der Projekte")
  598.         (help (cat    "    In diesem Fenster können Sie auswählen, welche der "
  599.                         "Projekte (Dateien mit Hilfstexten) Sie installieren möchten. "
  600.                         "Im folgenden erhalten Sie eine kurze Übersicht über die "
  601.                         "Bedeutung der einzelnen Projekte:\n\n"
  602.                         "    HotHelp - Dieses Projekt enthält eine Reihe wichtiger "
  603.                         "Informationen über HotHelp selber und sollte auf jeden Fall "
  604.                         "installiert werden.\n\n"
  605.                         "    HotHelpTools - In diesem Projekt finden Sie Hilfstexte "
  606.                         "zu allen HotHelpTools. Die kontextsensitive Online-Hilfe "
  607.                         "(Hilfe auf Tastendruck zum aktuellen Fenster) der Tools "
  608.                         "kann nur verwendet werden, wenn dieses Projekt installiert "
  609.                         "wird.\n\n"
  610.                         "    Glossar - Enthält eine ausführliche Erklärung vieler "
  611.                         "Amiga-typischer Fachausdrücke und ist somit für jeden "
  612.                         "Gelegenheitsanwender ein ideales Nachschlagewerk.\n\n"
  613.                         "    Shell - Übersicht über alle Shell-Befehle, die von "
  614.                         "ihnen verwendeten Fehlercodes und verwandte Informationen.\n\n"
  615.                         "    ARexx - Dieses Projekt enthält eine Kurzreferenz für die "
  616.                         "Programmierung in der Interpretersprache ARexx, die ab Version "
  617.                         "2.0 Bestandteil des Betriebssystems ist und die vor allem dazu "
  618.                         "verwendet wird, Anwendungsprogramme von außen zu kontrollieren.\n\n"
  619.                         "    ANSI-C - Eine Beschreibung der Standardbibliothek für "
  620.                         "C-Compiler, die für jeden C-Programmierer interessant ist.\n\n"
  621.                         "    IFF - Dieses Projekt beschreibt das "
  622.                         "Standard-Datenaustauschformat IFF des Amiga. Es ist für jeden "
  623.                         "Programmierer interessant, der IFF-Dateien lesen oder "
  624.                         "schreiben möchte.\n\n"
  625.                         "    Libs & Devs 1.3 - Eine umfassende Dokumentation des "
  626.                         "Amiga-Betriebssystems bis einschließlich OS 1.3 mit einer "
  627.                         "Beschreibung aller System-Funktionen, -Strukturen und -Symbole. "
  628.                         "Eine Beschreibung aller OS-Versionen bis einschließlich OS 3.0 "
  629.                         "kann über MAXON bezogen werden."
  630.                         "\n\n"
  631.                         @askoptions-help))
  632.         (choices        "HotHelp"
  633.                         "HotHelpTools"
  634.                         "Glossar"
  635.                         "Shell"
  636.                         "ARexx"
  637.                         "ANSI-C"
  638.                         "IFF"
  639.                         "Libs & Devs 1.3")
  640.         (default -1)
  641.     )
  642. )
  643. (if (<> projects-chosen 0)
  644.     (
  645.     (working "\nDie Header-Dateien werden installiert...")
  646.  
  647.     (set header "")
  648.     (if (in projects-chosen  0) (set header (cat header " HotHelp.hdr")))
  649.     (if (in projects-chosen  1) (set header (cat header " HotHelpTools.hdr")))
  650.     (if (in projects-chosen  2) (set header (cat header " Glossar.hdr")))
  651.     (if (in projects-chosen  3) (set header (cat header " Shell.hdr")))
  652.     (if (in projects-chosen  4) (set header (cat header " ARexx.hdr")))
  653.     (if (in projects-chosen  5) (set header (cat header " ANSI?C.hdr")))
  654.     (if (in projects-chosen  6) (set header (cat header " IFF.hdr")))
  655.     (if (in projects-chosen  7) (set header (cat header " Libs???Devs?1.3.hdr")))
  656.  
  657.     (set dst-dir (tackon hothelp-dir "Projekte"))
  658.     (if (and (> (strlen dst-dir) 0) (and (<> (substr dst-dir (- (strlen dst-dir) 1) 1) ":") (<> (substr dst-dir (- (strlen dst-dir) 1) 1) "/"))) (set dst-dir (cat dst-dir "/")))
  659.     (run (cat run-lha " x " archive-header " \"" dst-dir "\" " header))
  660.     (complete 45)
  661.  
  662.     ; Damit wären die Header-Files schon mal da, wo sie hingehören - nämlich in
  663.     ; HOTHELP:Projekte. Nun müssen wir uns noch um die Verteilung der Text-Dateien
  664.     ; kümmern.
  665.  
  666.     (set pro-dir (tackon hothelp-dir "Projekte"))
  667.  
  668.     (if (in projects-chosen 0) (    (set §it-name   "HotHelp")
  669.                                             (set §it-size   size-txt-hothelp)
  670.                                             (set §it-source source-txt-hothelp)
  671.                                             (set §it-dest   pro-dir)
  672.                                             (installtext)
  673.                                             (set pro-dir-hothelp §it-dest)))
  674.     (complete 50)
  675.     (if (in projects-chosen 2) (    (set §it-name   "Glossar")
  676.                                             (set §it-size   size-txt-glossar)
  677.                                             (set §it-source source-txt-glossar)
  678.                                             (set §it-dest   pro-dir)
  679.                                             (installtext)
  680.                                             (set pro-dir-glossar §it-dest)))
  681.     (complete 55)
  682.     (if (in projects-chosen 6) (    (set §it-name   "IFF")
  683.                                             (set §it-size   size-txt-iff)
  684.                                             (set §it-source source-txt-iff)
  685.                                             (set §it-dest   pro-dir)
  686.                                             (installtext)
  687.                                             (set pro-dir-iff §it-dest)))
  688.     (complete 60)
  689.  
  690.     (if (in projects-chosen 1 3 4 5 7)
  691.         (
  692.  
  693.  
  694.         (if (in projects-chosen 1) (    (set §it-name   "HotHelpTools")
  695.                                                 (set §it-size   size-txt-hothelptools)
  696.                                                 (set §it-source source-txt-hothelptools)
  697.                                                 (set §it-dest   pro-dir)
  698.                                                 (installtext)
  699.                                                 (set pro-dir-hothelptools §it-dest)))
  700.         (complete 65)
  701.         (if (in projects-chosen 3) (    (set §it-name   "Shell")
  702.                                                 (set §it-size   size-txt-shell)
  703.                                                 (set §it-source source-txt-shell)
  704.                                                 (set §it-dest   pro-dir)
  705.                                                 (installtext)
  706.                                                 (set pro-dir-shell §it-dest)))
  707.         (complete 70)
  708.         (if (in projects-chosen 4) (    (set §it-name   "ARexx")
  709.                                                 (set §it-size   size-txt-arexx)
  710.                                                 (set §it-source source-txt-arexx)
  711.                                                 (set §it-dest   pro-dir)
  712.                                                 (installtext)
  713.                                                 (set pro-dir-arexx §it-dest)))
  714.         (complete 75)
  715.         (if (in projects-chosen 5) (    (set §it-name   "ANSI-C")
  716.                                                 (set §it-size   size-txt-ansic)
  717.                                                 (set §it-source source-txt-ansic)
  718.                                                 (set §it-dest   pro-dir)
  719.                                                 (installtext)
  720.                                                 (set pro-dir-ansic §it-dest)))
  721.         (complete 80)
  722.         (if (in projects-chosen 7) (    (set §it-name   "Libs & Devs 1.3")
  723.                                                 (set §it-size   size-txt-libsdevs)
  724.                                                 (set §it-source source-txt-libsdevs)
  725.                                                 (set §it-dest   pro-dir)
  726.                                                 (installtext)
  727.                                                 (set pro-dir-libsdevs §it-dest)))
  728.         (complete 85)
  729.         )
  730.     )
  731.     (complete 85)
  732.  
  733.     (askdisk    (dest    "HotHelpInstall2_2")
  734.                 (prompt (cat    "\n\nBitte legen Sie nun die Disk \"HotHelpInstall2_2\" "
  735.                                     "in ein beliebiges Laufwerk ein!"))
  736.                 (help @askdisk-help)
  737.     )
  738.  
  739.     (if (in projects-chosen  0) ((working "\nBearbeite HotHelp.hdr")         (run (cat run-setprojectpath " " tools-language " \"" (tackon pro-dir "HotHelp.hdr")         "\" \"" (tackon pro-dir-hothelp      "HotHelp.txt")         "\""))))
  740.     (if (in projects-chosen  1) ((working "\nBearbeite HotHelpTools.hdr")    (run (cat run-setprojectpath " " tools-language " \"" (tackon pro-dir "HotHelpTools.hdr")    "\" \"" (tackon pro-dir-hothelptools "HotHelpTools.txt")    "\""))))
  741.     (if (in projects-chosen  2) ((working "\nBearbeite Glossar.hdr")         (run (cat run-setprojectpath " " tools-language " \"" (tackon pro-dir "Glossar.hdr")         "\" \"" (tackon pro-dir-glossar      "Glossar.txt")         "\""))))
  742.     (if (in projects-chosen  3) ((working "\nBearbeite Shell.hdr")           (run (cat run-setprojectpath " " tools-language " \"" (tackon pro-dir "Shell.hdr")           "\" \"" (tackon pro-dir-shell        "Shell.txt")           "\""))))
  743.     (if (in projects-chosen  4) ((working "\nBearbeite ARexx.hdr")           (run (cat run-setprojectpath " " tools-language " \"" (tackon pro-dir "ARexx.hdr")           "\" \"" (tackon pro-dir-arexx        "ARexx.txt")           "\""))))
  744.     (if (in projects-chosen  5) ((working "\nBearbeite ANSI-C.hdr")          (run (cat run-setprojectpath " " tools-language " \"" (tackon pro-dir "ANSI-C.hdr")          "\" \"" (tackon pro-dir-ansic        "ANSI-C.txt")          "\""))))
  745.     (if (in projects-chosen  6) ((working "\nBearbeite IFF.hdr")             (run (cat run-setprojectpath " " tools-language " \"" (tackon pro-dir "IFF.hdr")             "\" \"" (tackon pro-dir-iff          "IFF.txt")             "\""))))
  746.     (if (in projects-chosen  7) ((working "\nBearbeite Libs & Devs 1.3.hdr") (run (cat run-setprojectpath " " tools-language " \"" (tackon pro-dir "Libs & Devs 1.3.hdr") "\" \"" (tackon pro-dir-libsdevs     "Libs & Devs 1.3.txt") "\""))))
  747.     )
  748. )
  749. (complete 85)
  750.  
  751. ; Nun wird die Pref-Datei zusammengebastelt!
  752.  
  753. (set pref
  754.     (cat    "$VER: HotHelpPref " hh-version-intern " " hh-date "\n"
  755.             "TextColor=1\n"
  756.             "LightColor=" (if os-20 "2" "1") "\n"
  757.             "DarkColor=" (if os-20 "1" "2") "\n"
  758.             "RefColor=3\n"
  759.             "FontName=" (if os-20 "courier" "topaz") ".font\n"
  760.             "FontSize=" (if os-20 "15" "8") "\n"
  761.             "ScrollDelay=15\n"
  762.             "ScrollSpeed=0\n"
  763.             "LeftEdge=0\n"
  764.             "TopEdge=" (if os-20 "12" "11") "\n"
  765.             "Width=1000\n"
  766.             "Height=150\n"
  767.             "StackSize=20\n"
  768.             "KeyTab=30\n"
  769.             "KeyLayout=Columns\n"
  770.             "PrintTitle=CompleteOnly\n"
  771.             "ShowStart=Off\n"
  772.             "CloseCut=SpecialOnly\n"
  773.             "SearchArea=ActualFirst\n"
  774.             "HKAltQual=48\n"
  775.             "HKCtrlQual=8\n"
  776.             "HKShiftQual=3\n"
  777.             "HKAltCode=95\n"
  778.             "HKCtrlCode=95\n"
  779.             "HKShiftCode=95\n"
  780.             "HKAltAll=Off\n"
  781.             "HKCtrlAll=Off\n"
  782.             "HKShiftAll=Off\n"
  783.             "StartProject=HotHelp\n"
  784.             "StartKey=Startseite\n"
  785.             "ViewColor=3\n"
  786.             "SearchIgnore=On\n"
  787.             "SearchBack=Off\n"
  788.             "SearchAll=Off\n"
  789.             "ShiftProject=Libs & Devs 1.3\n"
  790.             "CtrlProject=Shell\n"
  791.             "CommandProject=Libs & Devs 1.3\n"
  792.             "FastFont=Off\n"
  793.             "DefaultFont=Off\n"
  794.             "SmartFont=On\n"
  795.             "SmartColors=On\n"
  796.             "RamIcon=On\n"
  797.             "OPrEnvironment=Off\n"
  798.             "OPrName=OnlineProjekt\n"
  799.             "OPrDir=HOTHELP:OnlineProjekte\n"
  800.             "OPrFEnter=Off\n"
  801.             "OPrFSelect=On\n"
  802.             "OPrFFirst=Off\n"
  803.             "OPrFCheck=On\n"
  804.             "OPrFDoubleCheck=On\n"
  805.             "OPrFFloatText=Off\n"
  806.             "OPrMarkExclude=float|double|char|int|long|unsigned|void|extern|static|const|register|struct|union|enum|#define|class|inline|*|VOID|BYTE|UBYTE|WORD|UWORD|SHORT|USHORT|LONG|ULONG|APTR|BPTR|CPTR|STRPTR|BSTR|BOOL|FLOAT|DOUBLE\n"
  807.             "OPrMarkPara=\n"
  808.             "OPrMarkCmtStart=/*\n"
  809.             "OPrMarkCmtEnd=*/\n"
  810.             "OPrMarkCmtLine=//\n"
  811.             "OpenOnStart=Off\n"
  812.             "Editor=Select\n"
  813.             "EnvEditor=HHEditor\n"
  814.             "ARexxHost=HOTHELP_REXX\n"
  815.             "HKAmigaQual=192\n"
  816.             "HKOnlineQual=72\n"
  817.             "HKAmigaCode=95\n"
  818.             "HKOnlineCode=33\n"
  819.             "HKAmigaAll=Off\n"
  820.             "HKOnlineAll=On\n"
  821.             "ToolsDir=" tools-dir "\n"
  822.             "DOSPattern=" (if os-20 "On" "Off") "\n"
  823.             "DisplayBeep=" (if os-21 "Flash" "DisplayBeep") "\n"
  824.             "OnlyPubScreen=Off\n"
  825.             "StdNumPad=Standard\n"
  826.             "CEDRealSize=Off\n"
  827.             "StartupMsg=On\n"
  828.             "CaseSensitivity=Off\n"
  829.             "LoadKeys=AsNeeded_Free\n"
  830.             "Language=Deutsch\n"
  831.     )
  832. )
  833. (working "\nDie Voreinstellungs-Datei wird erzeugt...")
  834. (textfile
  835.     (dest (tackon hothelp-dir "HotHelp3.Pref"))
  836.     (append pref)
  837.     (confirm)
  838.     (prompt (cat    "\nErzeugen der HotHelp-Voreinstellungs-Datei <"
  839.                         (tackon hothelp-dir "HotHelp3.Pref")
  840.                         ">"))
  841.     (help (cat        "    In dieser Datei werden alle Voreinstellungen des gesamten "
  842.                         "HotHelp-Systems festgehalten, die dann später über das Tool "
  843.                         "HotHelpPref editiert werden können.\n"
  844.                         "    Die Datei wurde an Ihre spezielle Konfiguration angepaßt "
  845.                         "und sollte daher grundsätzlich installiert werden."))
  846. )
  847. (complete 90)
  848.  
  849. ; Nun wird die Startup-Sequence (bzw. User-StartUp) an HotHelp angepaßt.
  850.  
  851. (set cmd "")
  852. (if tools-chosen
  853.     (if
  854.         (askbool
  855.             (prompt    (cat    "\nSie haben einige HotHelpTools im Verzeichnis \""
  856.                                 tools-dir
  857.                                 "\" installieren lassen. Soll ein Pfad auf dieses Verzeichnis "
  858.                                 "angelegt werden?"))
  859.             (help        (cat    "    Das Anlegen eines Pfades ist nur notwendig, wenn Sie die "
  860.                                 "Tools auch von der Shell aus aufrufen wollen. Wenn Sie "
  861.                                 "lediglich mit der Workbench arbeiten, können Sie diese "
  862.                                 "Frage ruhigen Gewissens mit 'Nein' beantworten.\n"
  863.                                 "    Sie sollten ebenfalls mit 'Nein' antworten, wenn Sie "
  864.                                 "die Tools in ein Verzeichnis kopiert haben, das bereits "
  865.                                 "im Suchpfad enthalten ist (z.B. \"C:\", \"Sys:Utilities\" und "
  866.                                 "ähnliche)."))
  867.             (default 1)
  868.         )
  869.         (set cmd (cat cmd "Path \"" tools-dir "\"\n"))
  870.     )
  871. )
  872. (set cmd (cat cmd "Assign HOTHELP: \"" hothelp-dir "\"\n"))
  873.  
  874. (if (patmatch (fileonly hotkeyhelp-dir) "WBStartUp")
  875.     (
  876.     (if (askbool
  877.             (prompt    (cat    "\nHotKeyHelp wurde im Verzeichnis '" hotkeyhelp-dir "' "
  878.                                 "installiert.\n\n"
  879.                                 "Soll das Programm dennoch in die "
  880.                                 "Skript-Datei 'S:User-StartUp' eingetragen werden, so "
  881.                                 "daß es automatisch bei jedem Start aufgerufen wird?"))
  882.             (help        (cat    "    Alle Programme im Verzeichnis 'SYS:WBStartUp' werden "
  883.                                 "ab Betriebssystem-Version 2.0 automatisch gestartet, "
  884.                                 "sobald die Workbench geladen wird. In diesem Fall sollte "
  885.                                 "HotKeyHelp nicht von der Datei 'User-StartUp' aus "
  886.                                 "aufgerufen werden, da diese ebenfalls bei jedem Neustart "
  887.                                 "des Rechners ausgeführt wird.\n"
  888.                                 "    Handelt es sich bei dem gewählten Verzeichnis jedoch "
  889.                                 "nicht um 'SYS:WBStartUp' oder wird auf Ihrem System die "
  890.                                 "Workbench nicht automatisch gestartet, sollte der "
  891.                                 "Aufruf HotKeyHelps in die Skriptdatei eingefügt werden, "
  892.                                 "damit das Programm nach jedem Start zur Verfügung steht."))
  893.             (default 0))
  894.         (
  895.         (set cmd (cat cmd "\"" (tackon hotkeyhelp-dir "HotKeyHelp") "\"\n"))
  896.         )
  897.     )
  898.     )
  899. ;else
  900.     (set cmd (cat cmd "\"" (tackon hotkeyhelp-dir "HotKeyHelp") "\"\n"))
  901. )
  902.  
  903. (startup "HotHelp"
  904.     (prompt (cat    "\nDie folgenden Befehle werden nun in die Datei \"S:User-Startup\" "
  905.                         "eingetragen:\n\n"
  906.                         cmd))
  907.     (help @startup-help)
  908.     (command cmd)
  909. )
  910. (complete 95)
  911.  
  912. (if (= old-hh-version 0)
  913.     (run (cat run-clearstartup " " tools-language)
  914.         (prompt    (cat    "\nClearStartup wird ausgeführt\n\n"
  915.                             "Dieses Programm überarbeitet die Startup-Sequence, wenn von "
  916.                             "HotHelp-Version 2 auf " hh-version " umgestiegen wird."))
  917.         (help        (cat    "    Da sich der Installations-Vorgang zwischen HotHelp-Version "
  918.                             "2 und " hh-version " erheblich unterscheidet (HotHelp 2 "
  919.                             "wurde mit einem selbstgebauten Programm installiert, während "
  920.                             "HotHelp " hh-version " den Commodore-Installer verwendet), hat "
  921.                             "sich auch der Aufbau der beim Starten des Systems automatisch "
  922.                             "ausgeführten Befehle geändert.\n"
  923.                             "    Unter HotHelp 2 wurden diese Befehle in die "
  924.                             "Startup-Sequence eingebaut, während der Installer dafür den "
  925.                             "User-Startup verwendet. Aus diesem Grund müssen beim Umstieg "
  926.                             "von HotHelp 2 auf " hh-version " die alten Befehle aus der "
  927.                             "Startup-Sequence wieder entfernt werden."))
  928.         (confirm)
  929.     )
  930. )
  931. (complete 100)
  932.  
  933. ; LhA in der RAM-Disk wird nun nicht mehr benötigt.
  934. (delete "RAM:LhA")
  935.  
  936. (user 1)
  937. (message (cat    "\nDie Installation der Demo-Version von HotHelp " hh-version " ist abgeschlossen.\n"
  938.                     "Bitte starten Sie jetzt Ihren Rechner neu!\n\n"
  939.                     "Anschließend können Sie HotHelp dann jederzeit über Alt-Help "
  940.                     "aktivieren.\n"
  941.                     "Shift-Help zeigt Hilfe zum Wort unter dem Cursor in Ihrem "
  942.                     "Editor an, während Amiga-Help den Inhalt des Clipboards als "
  943.                     "Schlüsselbegriff verwendet. Control-Help stellt einen Hilfstext "
  944.                     "zum jeweils zuletzt eingegebenen Wort dar."))
  945.  
  946.